www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Users/Users_Login.asp
<!--#include file="../conn.asp" -->
<!--#include file="../Function/Function.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="<%=GetConfig("WebiInstallDir")%>css.asp?ID=<%=NoSqlHack(Request.QueryString("CssID"))%>" type=text/css rel=stylesheet>
<title>会员中心</title>
<SCRIPT>
function formcheck()
{
if (loginform.userid.value=="")
{
alert('请输入用户名!');
loginform.userid.focus();
return false;
}
if (loginform.password.value=="")
{
alert('请输入密码!');
loginform.password.focus();
return false;
}
if (loginform.codestr.value=="")
{
alert('请输入验证码!');
loginform.codestr.focus();
return false;
}
}
</SCRIPT>
<style type="text/css">
<!--
BODY {border: 0; margin: 0;}
.td {
font-size: 12px;
color: #666666;
}
.input {
font-size: 12px;
height: 20px;
width: 100px;
}
-->
</style>
<%If IsPicTF(Request.QueryString("BGStyle"))=True Then
DivBgStyle = " style=""background-image:url(" & Request.QueryString("BGStyle") & ");"""
Else
DivBgStyle = " class=""" & Request.QueryString("BGStyle") & """"
End If
Response.Write "<body "&DivBgStyle&">"
If Request.QueryString("LableType")=1 Then
TextStyle=Request.QueryString("TextStyle")
ButtonStyle=Request.QueryString("ButtonStyle")
Reg_LinkCss=Request.QueryString("Reg_LinkCss")
Get_PassCss=Request.QueryString("Get_PassCss")
Out_LinkCss=Request.QueryString("Out_LinkCss")
Users_LinkCss=Request.QueryString("Users_LinkCss")
Else
TextStyle="input"
ButtonStyle=""
Reg_LinkCss=""
Get_PassCss="td"
End If
if TextStyle="" then
TextStyle="input"
end if
IF GetConfig("webmode")=1 Then
IF ChecKWcafesIP(UsersIP())=True Then
select case Request.QueryString("LoginDisStyle")
Case 0%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="40%" align="right">网吧名称：</td>
<td><%=Request.Cookies("YWNTUserCookie")("WcafesName")%></td>
</tr>
<tr>
<td align="right">会员类型：</td>
<td><%=UsersGroup(Request.Cookies("YWNTUserCookie")("WcafesGroup"))%></td>
</tr>
<tr>
<td align="right">到期时间：</td>
<td><%=Request.Cookies("YWNTUserCookie")("WcafesUseDate")%></td>
</tr>
<tr align="center">
<td colspan="2">
<%if IsPicTF(Users_LinkCss)=True then%>
<a href="Users_Index.asp" target="_parent"><img src="<%=Users_LinkCss%>" border="0"></a>
<%else%>
<a href="Users_Index.asp" class="<%=Users_LinkCss%>" target="_parent">用户中心</a>
<%end if%>
</td>
</tr>
</table>
<%Case 1%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><% Response.Write"网吧名称："&Request.Cookies("YWNTUserCookie")("WcafesName")&" 到期时间："&Request.Cookies("YWNTUserCookie")("WcafesUseDate")&" 会员类型："&UsersGroup(Request.Cookies("YWNTUserCookie")("WcafesGroup"))%>
<%if IsPicTF(Users_LinkCss)=True then%>
<a href="Users_Index.asp" target="_parent"><img src="<%=Users_LinkCss%>" border="0"></a>
<%else%>
<a href="Users_Index.asp" class="<%=Users_LinkCss%>" target="_parent">用户中心</a>
<%end if%></td>
</tr>
</table>
<%end select
else
IF Request.Cookies("YWNTUserCookie")("UserName")="" Then
select case Request.QueryString("LoginDisStyle")
Case 0%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<form name="loginform" action="<%=GetConfig("WebiInstallDir")%>Users/Users_Checklogin.asp" method="post">
<tr>
<td align="right">用户名：</td>
<td><input name="userid" type="text" class="<%=TextStyle%>" id="userid" value="注册用户" onFocus="this.value=''"></td>
</tr>
<tr>
<td align="right">密 码：</td>
<td><input class="<%=TextStyle%>" type="password" name="password"></td>
</tr>
<tr>
<td align="right">验证码：</td>
<td><input type="text" name="codestr" style="width:40px;" class="<%=TextStyle%>"/><img src="<%= GetConfig("WebiInstallDir") %>Function/Code.asp" id="codeImg" onClick="codeImg.src='<%= GetConfig("WebiInstallDir") %>Function/Code.asp'" align="absmiddle"/></td>
</tr>
<tr align="center">
<td colspan="2">
<input <%if IsPicTF(ButtonStyle)=True then Response.Write "type=""image"" src="""&ButtonStyle&"""" else Response.Write"type=""submit"" class="""&ButtonStyle&""" value=""登陆"""%> onClick="return formcheck();">
<%if IsPicTF(Reg_LinkCss)=True then%>
<a href="Users_Index.asp?URL=Users_Reg.asp" target="_parent"><img src="<%=Reg_LinkCss%>" border="0"></a>
<%else%>
<input type="button" name="Submit" class="<%= Reg_LinkCss %>" value="注册" onClick="javascript:window.top.location='Users_Index.asp?URL=Users_Reg.asp'">
<%end if
if IsPicTF(Get_PassCss)=True then%>
<a href="Users_Index.asp?URL=Users_ForgotPassword.asp" target="_parent"><img src="<%=Get_PassCss%>" border="0"></a>
<%else%>
<a class="<%=Get_PassCss%>" href="Users_Index.asp?URL=Users_ForgotPassword.asp" target="_parent">找回密码</a>
<%end if%></td>
</tr>
</form>
</table>
<%Case 1%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="loginform" action="<%=GetConfig("WebiInstallDir")%>Users/Users_Checklogin.asp" method="post">
<tr>
<td>用户名：
<input name="userid" type="text" class="<%=TextStyle%>" id="userid" onFocus="this.value=''" value="注册用户" size="18">
密 码：
<input class="<%=TextStyle%>" type="password" name="password">
验证码：
<input type="text" name="codestr" style="width:40px;" class="<%=TextStyle%>"/><img src="<%= GetConfig("WebiInstallDir") %>Function/Code.asp" id="codeImg" onClick="codeImg.src='<%= GetConfig("WebiInstallDir") %>Function/Code.asp'" align="absmiddle"/>
<input onClick="return formcheck();" <%if IsPicTF(ButtonStyle)=True then Response.Write "type=""image"" src="""&ButtonStyle&"""" else Response.Write"type=""submit"" class="""&ButtonStyle&""" value=""登陆"""%> onClick="return formcheck();">
<%if IsPicTF(Reg_LinkCss)=True then%>
<a href="Users_Index.asp?URL=Users_Reg.asp" target="_parent"><img src="<%=Reg_LinkCss%>" border="0"></a>
<%else%>
<input type="button" name="Submit" class="<%=Reg_LinkCss%>" value="注册" onClick="javascript:window.top.location='Users_Index.asp?URL=Users_Reg.asp'">
<%end if
if IsPicTF(Get_PassCss)=True then%>
<a href="Users_Index.asp?URL=Users_ForgotPassword.asp" target="_parent"><img src="<%=Get_PassCss%>" border="0"></a>
<%else%>
<a class="<%=Get_PassCss%>" href="Users_Index.asp?URL=Users_ForgotPassword.asp" target="_parent">找回密码</a>
<%end if%></td>
</tr>
</form>
</table>
<% end select
else
Set Rs=Server.CreateObject(YWNT_TMS_RS)
sql="select UsersName,UsersType,UsersGroup,UsersCoin,UsersCoinDate from YWNT_TMS_Users Where UsersName='"&Request.Cookies("YWNTUserCookie")("UserName")&"'"
Rs.open sql,Conn,1,1
if not Rs.eof then
YWNT_TMS_UsersName=RS("UsersName")
YWNT_TMS_UsersType=RS("UsersType")
YWNT_TMS_UsersGroup=RS("UsersGroup")
YWNT_TMS_UsersCoin=RS("UsersCoin")
YWNT_TMS_UsersCoinDate=RS("UsersCoinDate")
end if
RS.close
set RS=nothing
Select Case YWNT_TMS_UsersType
Case 0
YWNT_TMS_UsersCoinx=YWNT_TMS_UsersCoin&"影币"
Case 1
YWNT_TMS_UsersCoinx=YWNT_TMS_UsersCoinDate-Now()
YWNT_TMS_UsersCoinx=formatnumber(YWNT_TMS_UsersCoinx,1)&"天"
End Select
select case Request.QueryString("LoginDisStyle")
Case 0%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td width="40%" align="right">用 户 名：</td>
<td><%=YWNT_TMS_UsersName%></td>
</tr>
<tr>
<td align="right">会员类型：</td>
<td><%=UsersGroup(YWNT_TMS_UsersGroup)%></td>
</tr>
<tr>
<td align="right"><%if YWNT_TMS_UsersType=0 then Response.Write"剩余影币：" else Response.Write"剩余天数："%></td>
<td><%=YWNT_TMS_UsersCoinx%></td>
</tr>
<tr align="center">
<td colspan="2">
<%userinfo(YWNT_TMS_UsersName)%>
</td>
</tr>
<tr align="center">
<td colspan="2">
<%if IsPicTF(Out_LinkCss)=True then%>
<a href="Users_OutLogin.asp"><img src="<%=Out_LinkCss%>" border="0"></a>
<%else%>
<a href="Users_OutLogin.asp" class="<%=Out_LinkCss%>">退出登陆</a>
<%end if%>
<%if IsPicTF(Users_LinkCss)=True then%>
<a href="Users_Index.asp" target="_parent"><img src="<%=Users_LinkCss%>" border="0"></a>
<%else%>
<a href="Users_Index.asp" class="<%=Users_LinkCss%>" target="_parent">用户中心</a>
<%end if%>
</td>
</tr>
</table>
<%Case 1%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><% Response.Write"用户名："&YWNT_TMS_UsersName&" 会员类型："&UsersGroup(YWNT_TMS_UsersGroup)%>
<%if YWNT_TMS_UsersType=0 then Response.Write" 剩余影币：" else Response.Write" 剩余包月："%><%=YWNT_TMS_UsersCoinx%>
<%userinfo(YWNT_TMS_UsersName)%>
<%if IsPicTF(Out_LinkCss)=True then%>
<a href="Users_OutLogin.asp"><img src="<%=Out_LinkCss%>" border="0"></a>
<%else%>
<a href="Users_OutLogin.asp" class="<%=Out_LinkCss%>">退出登陆<a>
<%end if%>
<%if IsPicTF(Users_LinkCss)=True then%>
<a href="Users_Index.asp" target="_parent"><img src="<%=Users_LinkCss%>" border="0"></a>
<%else%>
<a href="Users_Index.asp" class="<%=Users_LinkCss%>" target="_parent">用户中心</a>
<%end if%></td>
</tr>
</table>
<%end select
end if
End if
Else
select case Request.QueryString("LoginDisStyle")
Case 0%>
<table width="100%" border="0" cellspacing="0" cellpadding="3">
<tr>
<td align="center">欢迎您来到本影院观看影片</td>
</tr>
<tr>
<td align="center">本影院所有影片都无须注册免费观看</td>
</tr>
<tr>
<td align="center">您的IP是：<%=UsersIP()%></td>
</tr>
</table>
<%Case 1%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>本影院所有影片都无须注册免费观看 您的IP是：<%=UsersIP()%></td>
</tr>
</table>
<%End Select
End if
function userinfo(userID)
dim infoRS
set infoRS=conn.execute("SELECT * FROM YWNT_TMS_UsersMsg where UsersName='"&userID&"' and UsersLook=0 ")
if not infoRS.eof then
response.Write("<a href="""&GetConfig("WebiInstallDir")&"Users/Users_Index.asp?URL=Users_Msg.asp&Action=MsgContent&ID="&infoRS("MsgID")&""" target=""_blank"">") &vbcrlf
response.Write("<initArray()>") &vbcrlf
Response.Write "<bgsound src="&GetConfig("WebiInstallDir")&"Users/images/mail.wav volume=100>" &vbcrlf
response.Write("<SCRIPT>") &vbcrlf
response.Write("function initArray() {") &vbcrlf
response.Write("this.length = initArray.arguments.length;") &vbcrlf
response.Write("for (var i = 0; i < this.length; i++) {") &vbcrlf
response.Write("this[i] = initArray.arguments[i];") &vbcrlf
response.Write(" }") &vbcrlf
response.Write("}") &vbcrlf
response.Write("var ctext = ""您有新的消息"";") &vbcrlf
response.Write("var speed = 200;") &vbcrlf
response.Write("var x = 0;") &vbcrlf
response.Write("var color = new initArray(") &vbcrlf
response.Write("""#EFEFEF"", ") &vbcrlf
response.Write("""#ff3300"",") &vbcrlf
response.Write("""#EFEFEF""") &vbcrlf
response.Write(");") &vbcrlf
response.Write("if(navigator.appName == ""Netscape"") {") &vbcrlf
response.Write("document.write('<layer id=""c"">'+ctext+'</layer>');") &vbcrlf
response.Write("}") &vbcrlf
response.Write("if (navigator.appVersion.indexOf(""MSIE"") != -1){") &vbcrlf
response.Write("document.write('<div id=""c"">'+ctext+'</div>');") &vbcrlf
response.Write("}") &vbcrlf
response.Write("function chcolor(){ ") &vbcrlf
response.Write("if(navigator.appName == ""Netscape"") {") &vbcrlf
response.Write("document.c.document.write('<font color=""'+color[x]);") &vbcrlf
response.Write("document.c.document.write('"">'+ctext+'</font>');") &vbcrlf
response.Write("document.c.document.close();") &vbcrlf
response.Write("}") &vbcrlf
response.Write("else if (navigator.appVersion.indexOf(""MSIE"") != -1){") &vbcrlf
response.Write("document.all.c.style.color = color[x];") &vbcrlf
response.Write("}") &vbcrlf
response.Write("(x < color.length-1) ? x++ : x = 0;") &vbcrlf
response.Write("}") &vbcrlf
response.Write("setInterval(""chcolor()"",200);") &vbcrlf
response.Write("</SCRIPT>") &vbcrlf
response.Write("</a>") &vbcrlf
end if
infoRS.close
set infoRS=nothing
end function
call connclose()%>
</body>
</html>